home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b6.d64 / obj'load.l < prev    next >
Text File  |  2007-02-28  |  427b  |  17 lines
  1. 9000 PROC OBJ'LOAD(FILENAME$,DEVICE) CLOSED
  2. 9010 L:=LEN(FILENAME$)
  3. 9020 FOR I:=1 TO L DO
  4. 9030 POKE 827+I,ORD(FILENAME$(I))
  5. 9040 ENDFOR I
  6. 9050 FOR I:=850 TO 881 DO
  7. 9060 READ X
  8. 9070 POKE I,X
  9. 9080 ENDFOR 
  10. 9090 DATA 169,0,170,160,255,32,186,255,169,0,162,60,160,3,32,189,255,169,0,162
  11. 9100 DATA 255,160,255,32,213,255,169,0,32,195,255,96
  12. 9110 POKE 859,L
  13. 9120 POKE 851,DEVICE
  14. 9130 POKE 877,DEVICE
  15. 9140 SYS 850
  16. 9150 ENDPROC OBJ'LOAD
  17.